home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
476-500
/
disk_499
/
diglib
/
diglib.lzh
/
source
/
GSDNAM.for
< prev
next >
Wrap
Text File
|
1991-04-13
|
579b
|
20 lines
SUBROUTINE GSDNAM(IDEV,BNAME)
IMPLICIT NONE
CHARACTER*1 BNAME(40)
C
C THIS SUBROUTINE RETURNS THE DEVICE NAME OF THE SPECIFIED DEVICE
C *********** DEVICE NAMES ARE LIMITED TO 39 CHARACTERS **********
C
C
INTEGER IDEV,MAXDEV
DATA MAXDEV /2/
C
BNAME(1) = CHAR(0)
IF ((IDEV .LE. 0) .OR. (IDEV .GT. MAXDEV)) RETURN
GO TO (100,200) IDEV
100 CALL SCOPY('13" Monitor - Laced, 16 colors'//CHAR(0),BNAME)
GOTO 1000
200 CALL SCOPY('12" Monitor - Laced, 16 colors'//CHAR(0),BNAME)
1000 RETURN
END